home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
me_cd25.zip
/
MUTT2.ZIP
/
SYSVAR.MUT
< prev
next >
Wrap
Text File
|
1992-11-09
|
468b
|
21 lines
;; Allow the user to set/examine sysvars
;; C Durland Public Domain
(include me2.h)
(defun
set-sysvar
{
(string svar)
(svar (complete CC_SYSVAR "Set sysvar: "))
(sysvar svar
(convert-to NUMBER (ask "Current value of " svar " is " (sysvar svar)
". Set " svar " to: ")))
}
get-sysvar
{
(string svar)
(svar (complete CC_SYSVAR "Get sysvar: "))
(msg "Current value of " svar " is " (sysvar svar))
}
)